<script>on mouseUpanswer file "ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾂｩﾃﾃﾃ映ﾃ [ﾃ運ﾃﾃεｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃï｣ｿﾃﾂｵﾃ窶ｹﾃ竏妥③" & returnﾂｬ& "ﾃｪﾃ催ｳpﾃﾃε液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type TEXTif it is empty then exit mouseUpput it into rFNput rFN into cd field "File"open file rFNread from file rFN until eofput it into cd field "Text"close file rFNend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>141</left>
<top>292</top>
<right>310</right>
<bottom>314</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Convert</name>
<script>on mouseUpput the date into dateTconvert dateT to dateItemsput cd field "Text" into TEXTput "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday" into CWput 99 into Chrepeat with N=1 to 10if char 1 to 3 of line N of TEXT is "□BN" then put 2 into Chif char 1 to 4 of line N of TEXT is "□Abg" then put 20 into Chif char 1 to 3 of line N of TEXT is "□AN" then put 1 into Chif char 1 to 3 of line N of TEXT is "□SN" then put 1 into Chif char 1 to 3 of line N of TEXT is "□CN" then put 1 into Chif char 1 to 3 of line N of TEXT is "□DN" then put 40 into Chif item 1 of line N of TEXT is "□ES" then put 30 into Chend repeatif Ch=99 thenanswer "ﾃﾂｱﾃﾃε映ﾃ [ﾃ運ﾃﾃ陛嘘ﾃ嘉ｬﾃ頴ﾃ [ﾃ曳ﾃﾃεｯKﾃｳvﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"exit mouseUpend ifif Ch=20 thenif char 1 to 4 of line 4 of TEXT is "□Abg" then delete line 4 of TEXTrepeat with N=(number of lines of TEXT) down to 4if line N of TEXT is empty thendelete line N of TEXTnext repeatend ifif char 1 of line N of TEXT is "," thenput line N of TEXT after line N-1 of TEXTdelete line N of TEXTnext repeatend ifif char 1 to 4 of line N of TEXT is "□Abg" thendelete line N of TEXTput "," before line N of TEXTend ifif char 1 to 5 of line N of TEXT is "□GC1" thendelete line N of TEXTput "□GC1," before line N of TEXTend ifif char 1 to 4 of line N of TEXT is "□GC2" thendelete line N of TEXTput "," before line N of TEXTend ifend repeatif item 9 of TEXT is not empty and line 1 of item 10 of TEXT is not "ﾃｩﾃ甘ｬﾃｦﾃｬﾋ凖⑦ﾃｩﾃｫﾃ､iﾃｱﾂｺﾃ⑦ﾃｨ竕･ﾃｮFﾃｮ窶佚ｧﾃ愿⑴ﾃｨﾃｿﾃ･ﾃｮﾃｮ窶佚ｧﾃ愿⑴ﾃｨﾃｿﾃｨﾃｫﾃｮ窶佚ｧﾃ" thenput return & item 9 of TEXT after item 10 of TEXTput "ﾃｮNﾃ･ﾃｩﾃ⑿ﾃｮNﾃｳﾃ禿⒀ﾃ⑦ﾃｨoﾃｳﾃ ﾃｩﾃｱ" & return into item 9 of TEXTend ifif item 1 of line (number of lines of TEXT)-1 of TEXT is not "□DS" thenput "□DS,,,,,,,,,,,,,,," & return before line (number of lines of TEXT) of TEXTend ifend ifif Ch<10 thenrepeat with N=(number of lines of TEXT) down to 2put N into cd field "count"put line N of TEXT into LNif LN is empty thendelete line N of TEXTnext repeatend ifif char 1 of LN is "," thendelete line N of TEXTput LN after line N-1 of TEXTnext repeatend ifif LN is "ﾃﾂｪﾃﾃεｫﾂｺ" thendelete line N of TEXTnext repeatend ifrepeat with M=(number of chars of LN)-1 down to 1set cursor to busyif char M to M+1 of LN is ", " then put empty into char M+1 of line N of TEXTend repeatif line N of TEXT is "□CBﾃ･ﾋ堙ｧﾂｿ" then put 10 into Chif item 1 of line N of TEXT is "□BN2" then put "□BN" into item 1 of line N of TEXTend repeatif Ch=2 then put "□CBﾃ･ﾋ堙ｧﾂｿ" & return & "□ﾃｯiﾃｱ竅" & return & "□RBﾃ･ﾋ堙ｧﾂｿ" & return before last line of TEXTend ifif Ch=30 thenput CvSort(dateT) into DTrepeat with N=(number of lines of TEXT) down to 2put item 1 of line N of TEXT into NTput offset("/",item 1 of line N of TEXT) into Mif M=0 then next repeatput item 1 of dateT & char 1 to 2 of NT & char 4 to 5 of NT into NTif DT > NT then add 10000 to NTput NT into item 1 of line N of TEXTend repeatend ifif Ch=40 thenrepeat with N=4 to (number of lines of TEXT)if char 1 to 2 of line N of TEXT is "□D" and item 2 of line N of TEXT is 5 thenif item 1 of line N of TEXT is "□D0000" then next repeatput word 1 of line N+1 of TEXT into dateRif dateR is empty then next repeatput CvItem(dateR) into DRconvert DR to dateItemsput dateR && item (item 7 of DR) of CW into line N+1 of TEXTend ifend repeatend ifput TEXT into cd field "Text"put empty into cd field "count"answer "ﾃ映ﾃ [ﾃ運ﾃ嘘ﾃ嘉ｬﾃ頴ﾃ [ﾃ曳ﾃ､ﾃﾃｳﾏ\"end mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>337</left>
<top>291</top>
<right>420</right>
<bottom>313</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Save</name>
<script>on mouseUpput cd field "File" into FNopen file FNwrite cd field "Text" to file FNclose file FNanswer FN && "ﾃｯ竄ｬﾃｫ竏づ､ﾃﾃｳﾏ\"end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>213</left>
<top>270</top>
<right>308</right>
<bottom>287</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>count</name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>439</left>
<top>291</top>
<right>491</right>
<bottom>313</bottom>
</rect>
<style>default</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Quit</name>
<script>on mouseUpanswer "LN Data Converter ﾃï｣ｿﾃｨIﾃｳﾏ\ﾃﾂｵﾃﾆ津窶｡ﾃﾃ甘ﾃ偲ﾂｵﾃﾂ｢ﾃ竕暗竏妥ﾂｩﾃ⑨" with "Yes" or "No"if it is "No" then exit mouseUpdoMenu "Quit HyperCard"end mouseUp</script>
